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CCCCCCCC «OHH HH MM MM 000000 NN NN SSSSSSSS_ TTTITTTTTT RRRRRRRR 
CCCCCCCC «HH HH MM MM 000000 NN NN SSSSSSSS_ TTTTTTTTTT RRRRRRRR 
cc HH HH MMMM MMMM O00 00 NN NN SS TT RR RR 
cc HH HH MMMM MMMM 00 00 NN NN SS TT RR RR 
cc HH HH MM MM MM OO 00 NNNN NN SS TT RR RR | 
cc ae HH MM MM MM OO 00 NNN NN SS TT RR RR 
cc HHHHHHHHHH = MM MM 00 00 NN NN NN SSSSSS TT RRRRRRRR 
cc HHHHHHHHHH = MM MM 00 00 NN NN NN SSSSSS TT RRRRRRRR 
cc HH MM MM 00 00 NN NNNN $s TT RR RR 
cc HH HH MM MM 00 00 NN NNNN Ss TT RR RR 
cc HH HH MM MM 00 00 NN NN ss TT RR RR ‘alee 
CCCCCCCC HH HH MM MM 000000 NN NN SSSSSSSS TT RR RR EPS 
CCCCCCCC OHH HH MM MM 000000 NN NN SSSSSSSS TT RR RR a 
| 
LL IIIII1 SSSSSSSS 
LL eeeeel SSSSSSSS 
LL II SS 
LL I] SS | 
LL I] Ss 
LL I] $$ 
LL I] SSSSSS | 
LL 1] SSSSSS 
LL I] Ss 
LL I] SS 
LL I] ss 
LL I] e = 
LLELLLLLLLL III SSSSSSSS 
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VAX=11 42 1 
14-Sep-1 DISKSVMSMASTER:CEDT.SRCJCHMONSTR.BLI;1 (1) 
001 ZTITLE “EDTSC CHnoNS TR - test for being on a given string’ 
0 ¢ MODULE EDTSCH ! Test for being o a given string 
it NTDENT = 'v04-000' ! File: CHMONS R.BLI Edit: J8S1007 
= 
005 


BEGIN 
: 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH License AND WITH THE 
't INCLUSION OF THE ABOVE gpl NOTICE. THIS SOFTWARE OR ANY OTHER 
'e st ty THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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ie OTH . 
ie TRANSFERRED. * 
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OoOoooooooo: 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- Se okat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT == The DEC Standard Editor | 
| ABSTRACT: 


efatatatatatotatat=taotatataetototatetotetetetotetotatat= 


WWI NAAM AIA AIR PO POPUPEPU PUPPY 2 


This module determines if the current position matches 
a given string. 
| 


| ENVIRONMENT: Runs at any access mode - AST reentrant 

i AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

i MODIFIED BY: 

i 1-001 - Original. DJS 04-Feb-1981. This module was created b 


extrecting the routine EDTSSTST_ONSTR from module CHANGE.BLI. 
a Regularize headers. JBS 03-Mar-1981 
1- 
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ONO 


- Add WPS string matching. STS 05-Oct-1981 

- Support the DEC Multinational character set 
~008 - Replace call to eecectst $9 " 3 gi-5 Sep-1982 
-006 - Fix a missing dot. S 07-Dec-1 

-007 - Add conditionals hai Bes and V1220 support. JBS 11-Feb-1983 


JBS 20-Jul-1982 
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EDTSCHMONSTR 
042000 Declarations 


$ 5 SBTTL "Declarations' 
§ 7 TABLE OF CONTENTS: 


; INCLUDE FILES: 


REQUIRE “EDTSRC:EDTREQ'; 


PANGS CROW OSO Doe 


a ee ae ed ed ed od od 


an 
—-COeon 
at wy 
AAAI 


See Se Se Se Oe Se Ge Oe Se Be Se Se Oe Se Oe Ge Oe Oe Se Se Oe Oe Se Se Se ee SESH Se OH Se Oe Se Seas 
NN 
= 


a 5 LIBRARY ‘EDTSRC:SUPPORTS'; 
76 thd ! 

77 0648 ' MACROS: 

78 Boe? ! 

79 650 ‘ NONE 

80 bees ! 

81 O36 ' EQUATED SYMBOLS: 

8 065 ! 

: 0654 ! NONE 

4 Bee ‘ 

85 28 ' OWN STORAGE: 

86 bee ! 

87 28 ! NONE 

88 065 ! 

89 0660 ' EXTERNAL REFERENCES: 
90 0661 ! 

3) 0662 : In the routine 


EDTSCHMONSTR = test for being on a given strin 1S. 1984 VAX-11 iss-32 V 
. “ 9 1278871 98s 99:93:26 


60 

61 REQUIRE "EDTSRC: TRAROUNAM’ ; 
a FORWARD ROUTINE 

64 EDTS$TST_ONSTR; 

2? ' 


LIBRARY "EDTSRC: TRANSLATE’; 


DISKS$V meh MASTER: cto 1 oSRCICHMONSTR. BLI; ha 


! Compare the current character position with a string descriptor 
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ey ee ew ee oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


H 4 | 
EDTSCHMONSTR EDTSCHMONSTR = test for being on a given string 16-Sep-1984 00:05:27 VAX-11 Bliss-32 V4.0-74 Page 3) 
Oc +600 EDTSSTST_ONSTR = test for being one given ste 1 =300n 138% 99:93:25 DLEKSVMEMASTER CEDT SRCICHMONSTR.BLICY* (3). 
H 37 } ZSBTTL "EDTSSTST_ONSTR = test for being on a given string’ ; 
: 95 1 GLOBAL ROUTINE EDTSSTST_ONSTR ( ! Test for being on a given string . 
; 38 1 ADDR, ' Address of the model string ; 
3 1 LEN ' Length of the model string : 
; | «(98 1 ds : 
; WW 1 : 
: 100 1 !e¢ : 
: 19) : FUNCTIONAL DESCRIPTION: : 
: 198 1 i This routine checks to see if the string specified by ADDR and | : 
: 130 ! LEN matches at the current character position. ; 
; 106 | FORMAL PARAMETERS : | 
F H's : ADDR Address of the string to test against the current position | 
; 119 : ! LEN Length of that string : 
; 38 { IMPLICIT INPUTS: | 
: 114 1: EDT$$G_EXCT_MATCH ; 
> 115 1 i EDT$$A_LN_END : 
i 116 1 EDTSSA_LN~PTR | 
i 118 1 | IMPLICIT OUTPUTS: | : 
; 120 EDTSSA_LN_PTR | 
; 133 ! ROUTINE VALUE: 
: igs : The value 1 is returned if it matches, 0 otherwise. : 
; 136 1 | SIDE EFFECTS: 3 
; ist iz: : 
; : : : NONE : 
a i ; 
; 13 2 BEGIN | ; 
; 138 : 
3; 134 EXTERNAL ROUTINE ‘ 
i: 135 EDTSS$CS_DWN ' Move down a Line 3 
3 138 EDTSSCS-LEFT; ! Move left a character : 
: 138 EXTERNAL ; 
3 139 EDTS$A_WK_LN : REF LIN_BLOCK, | 3 
; 140 EDTS$Z_ L : 
; 141 EDTS$G_EXCT MATCH, ! Exact search or no. 3 
3 126 EDTS$A_LN_ERD, ' End of current Line pointer 3 
3 re EDTS$$A_LN_PTR ' Current character pointer : 
> 145 XIF SUPPORT_VT220 
; 166 THEN 
; rs EDT$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE]; ! Information about characters 


eee aS SS SS 


'¢ 
Loop over size of the string. 


DECR 1 FROM .LEN = 1 T0 0 DO 
BEGIN 


IF _CHSPTR_EGL (.EDTSSA_LN_PTR, .EDTSSA_LN_END) 


WN "OC OONOULSWN-O0Oan 


IF (CHSRCHAR_A (CP) EQL ASC_K_CR) 
THEN 


IF (.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) THEN EXITLOOP ELSE EDTS$S$CS_DWN () 


ELSE 
EXITLOOP 


PEA EQ®_PEAAAMAMNNVA ES BELL LLL EE 
WN SO OO NA UENO ODNAUE WN (OO ODNOUES AR (“OOONOUSWNR—O ww 


ways 


Vw —OOOnNOu 


BEGIN 
SC = CHSRCHAR (.EDTSSA_LN_PTR); 
TC = CHSRCHAR_A (CP); ! get the char we're trying to match 


CAGE FOTOS SECT MATCH FROM 0 TO 4 OF 


a a a a ek et td od “a I Lt 


FARES SESLESLANLESELES, 


3: ' General 
BEGIN 


ZIF SUPPORT_VT220 
THEN 


a ee 


SSNS SSS 


PUPP BB BB BB EAA BWI 


76 IF (,GENERAL_TABLE C.SCJ] NEQ .GENERAL_TABLE C.1C)) THEN EXITLOOP; 


4 
EDTSCHMONSTR EDTSCHMONSTR = test for being on a given strin ibese -1984 00:05:27 VAX-11 Bliss-32 V4.0-74 Pa 4 
104-000 EDT $181 ONSTR - test for being on’s given str 102805-1 386 99:93:20 DLSKSVMGMASTERSLEDT SRCSCHMONSTR.BLIG4o” (3). 
150 7 BIND 
; 4 GENERAL TABLE = UPLIT (BYTE (CHAR_GENERAL)) : VECTOR (256, BYTE]; 
7 BIND 
: f CI_LTABLE = UPLIT (BYTE (CHAR_CI)) : VECTOR (256, BYTE); 
56 7 BIND 
2 f DI_TABLE = UPLIT (BYTE (CHAR_DI)) : VECTOR (256, BYTE]; 
36 U 07 ZELSE 
60 U 5 
61 2FI 
8 
6 LOCAL 
64 ° 
65 The 
66 cP 
6 MATCHED; 
6 '¢ 
, Keep track of how many characters matched so we can back up. 
7 "MATCHED = 0; 
y CP = .ADDR; 
7 
7 
7 
7 
7 
8 
8 
8 
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EDTSSTST_ONSTR = test for being on a given str 14-Sep-1984 12:22:40 DISKSVMSMASTER:CEDT.SRCJCHMONSTR.BLI; (3) V 
; 207 777 oe 
; 08 U O778 5 RELSE a 
; 19 u 780 IF ((.SC GEQ %C'a") AND (.SC LEQ %C'z")) THEN SC = .SC = BC'a’ + AC'A'; fi 
: i U 0786 IF ((.TC GEQ ZC'a") AND (.TC LEQ %C'z")) THEN TC = .TC = BC'a’ + ACTA'; , 
: 216 U 0784 IF (.SC NEQ .TC) THEN EXITLOOP; : 4 
: 5g Y Ohee 8 ars 
i i eS ~ 7 
; i§ ta 4 : i ¢ 
: 220 790 4 (1) : ! Exact ; 4 
3 1 791 4 ° 4 
i 99¢ 0798 4 IF (.SC NEQ .TC) THEN EXITLOOP; | : | 
: 226 079% 4 (2) : ! WPS | a 
: 227 L 07o7 8 xuF SUPPORT_WPS . 4 
: 328 0798 > XTHEN : 
> 230 L 0800} Z1F_SUPPORT_vT220 ; 4 
> 231 O80) 5 XTHEN fs 
: 3§ 0808 IF .EDT$$B_CHAR_INFO C.TC, 0, 0, 1, 0) ! If lower case letter - 4 
; $e 0804 THEN : 6 
: 235 U 0805 9 XELSE i 
; 3? U 0807 IF _((.TC GEQ %C*a') AND (.TC LEQ %C'2")) iM 
: 238 U 0808 THEN z § 
: 239 0809 9 aF1 3 4 
: 240 0810 5 = 4 
i gal 0811 6 BEGIN i 
; “§ L o81§ 6 HIF _SUPPORT_VT220 | ba 
; 245 0815 6 
i 246 0816 6 IF (.CI_TABLE C.SCJ NEQ .CI_TABLE C.1CJ) THEN EXITLOOP; 
ee yee fms 
; 30 U 0820 6 IF ((.SC GEQ %C'a") AND (.SC LEQ %C'z")) THEN SC = .SC - %C'a’ + XC'AT; | 
: 38 ; 08 é é IF ((.1C GEQ %C'a") AND (.TC LEQ %C°z")) THEN TC = .TC = 2C%a" + ZCAT; 
; 34 U 08 4 6 IF (.SC NEQ .TC) THEN EXITLOOP; 
: 56 P ; é 6 ai 
: 25 827 6 
: 258 828 ‘ END 
: 259 8 ELSE 
i 60 } 0 6 BEGIN 
: 62 8 ¢ 6 IF (.SC NEQ .TC) THEN EXITLOOP; ! Exact compare 
3; & 8 6 


K 4 
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Oa 500 EDISSTST ONSTR - test for being en's given ste 13-808-1 382 90:93:25 DLEKSVMGHASTER-CEDT SRCICHMONSTR.BLIn?” (3). 
: 264 END; 
: $e u 083% 8 XELSE | 
$ e9 U 0 
> 268 21 
3 +4 
3 0 40 4 END; 
3 71 1 4 
: 7 tg 4 : ' Case insensitive 
s ef bee BEGIN 
> 274 0844 
s es L 8 45 ZIF SUPPORT_VT220 | 
3 re 8 rf XTHEN 
: 4 rt IF (.CI_TABLE C.SC] NEQ .CI_TABLE C.1CJ]) THEN EXITLOOP; | 
: 280 Uu 0850 ZELSE 
: 281 U 0851 0 | 
3 ag tht ZFI 
s 2 0853 5 
; 284 0854 4 END; 
s 285 0855 4 
; 286 0856 4 : ! Diacritical insensitive 
3 rH 0857 5 BEGIN 
; 288 0858 5 
; 289 L 0859 5 XIF SUPPORT_VT220 
: 290 0860 5 XTHEN 
: 291 0861 5 
3 ‘ Baeg 5 IF (.DI_TABLE C.SCJ NEQ .DI_TABLE C.1CJ) THEN EXITLOOP; 
; a 086 é 
> 294 U 0864 ZELSE 
s 295 u 0865 5 0 
; 296 9808 5 <FI 
; 344 0867 5 
; 298 0868 4 END; 
; 299 0869 4 
3 00 0870 4 COUTRANGE) : 
; 01 0871 4 ASSERT (0); 
3 34 tk 4 TES; 
: 30 873 4 
: 304 0874 4 EDT$S$A_LN_PTR = CHSPLUS (.EDTSSA_LN_PTR, 1); 
; 305 +h END; 
3 $$ 7 MATCHED = .MATCHED + 1; 
; 5308 78 END; 
: 309 879 
; 310 880 '¢ ; 
: 3 1 Back up to the original position. 
3 18 ; : 
3 14 DECR I FROM .MATCHED - 1 TO 0 DO 
; 2 5 EDTSSCS_LEFT (); 
8 1$ RETURN (.MATCHED EQL .LEN); 
; 318 888 1 END; ! of routine EDTSS$TST_ONSTR 
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N 4 
EDTSCYMONSTR EDTSCHMONSTR - test for being on a given string 1 ep-1984 5:27 VAX=-11 Bliss. -32 V 

v04-000 EDTSSTST_ONSTR = test for being on’s given ste 12: eats hi 99: $3 £4 DISKSVMSMASTER: cer” she CHMONSTR.BLI; fh * (3) 
0D 91 000 CMPBRT, #13 ; 
0 000000006 i of BOVAB 166 -£08 LN, RO : 0757, 
8 Mantddittds a9 o} 0 } CMPL FDISSALW K_CN, RO : | 
000000006 00 FB : A CALLS #0, EDT$$CS_DWN : | 

11 00041 BRB 11§ : 
54 9A 0 43 28 MOVZBL (RO), SC + 0764 
9A 46 MOVZBL (CP)+4, TC : 0765 
04 00 000000006 CF 0004 CASEL EDTS$$G_EXCT_MATCH, #0, #4 + 0767 

002c 0023 OO1E 001 90051 3$: WORD 4$-3$,= : 

0037 0059 5$-3$,- ; | 
$$ $,- : 
bs-38" ; 

000000006 00 00 FB 00058 CALLS #0, EDTSSINTER_ERR + 0871 
2F 11 00062 BRB 10$ + 0767 
FC93 CF42 FC97 CF44 91 00064 4$: CMPB  GENERAL_TABLECSCJ, GENERAL_TABLELTC) : 0776 
22 11 00060 BRB 9$ : 
52 4 D1 OO06F 5S: CMPL SC, TC + 0792 
1D 11 00072 BRB 9$ : 
F2 0000000060042 00 a 0074 6$: BBC #0, EDT$$B_CHAR_INFOLTC), 5$ + 0803 
FD7A CF42 FD7E CF a4 91 90070 7$: CMPB CI_TABLECSCJ, CY_TABLELTC) : 0816 
FEOF CF42 FE73 CF44 91 00088 8$: CMPB = OI_TABLECSCJ, DI_TABLECTC) : 0862 
0C 12 00091 9$: BNEQ 1 F 
67 D6 00093 10$: INCL EDT$$A_LN_PTR > 0874) 
53 D6 00095 11$: INCL MATCHED : 0877 
02 55 «F4 00097 12%: SOBGEQ 1, 13 : 0748 
03 11 0009A BRB 14$ : 
FF77 31 0009C 13$:  BRW 1$ ; 
52 53 DO OOO9F 14$: | MOVL MATCHED, I > 0884 
07 11 000A2 BRB 6 : 
000000006 00 00 FB OO0A4 15$: CALLS #0, EDTSSCS_LEFT ; 0885 | 
F6 52 F4 OOOAB 16$: SOBGEQ I, 15$ ; 
50 D4 OOOAE CLRL : 0887 

08 AC 53 D1 00080 CMPL § MATCHED, LEN ; 

08 12 00084 BNEQ 17$ ; 

50 D6 00086 INCL RO : 
04 000B8 17$: _— RET > 0888 | 

; Routine Size: 185 bytes, Routine Base: _EDTSCODE + 0300 


0889 1 
0890 1 !<BLF/PAGE> 


a | 


B 5 
EDTSCHMONSTR EDTSCHMONSTR = test for being on a given string 16-Sep-1984 00:05:27 VAX-11 Bliss-32 V Lg 42 Page 10 
v04-000 EDTSS$TST_ONSTR = test for being on a given str 14-Sep-1984 12:22:40 DISKSVMSMASTER: ce T.SRCICHMONSTR.BLI;1 (4) 
; ¢ 0891 1 END ! of module EDTSCHMONSTR 
; 95) 1 
4 0893 0 ELUDOM 


Name Bytes Attributes 
_EDTSCODE 953 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


| 

| 

PSECT SUMMARY 
Library Statistics 
| 

| 

| 

| 

| 


ee a le oe er Symbols oco-e--- Pages Processing 

; File Total Loaded Percent Mapped Time 

;  _$255$DUA28: EDT. SRCJEDT L325 377 1 2 40 00:00.2 

; 7$255$DUA28:CEDT. SRCIPSECTS.L32;1 2 1 5 7 00:00.1 

; 7$255$pua28: CEDT. *SREITRANSLATE. -§32;1 6 3 50 57 00:00.1 

: 7$255$DUA28:CEDT. SRCJSUPPORTS.L32; | 2 2 100 5 00:00.1 | 
| 

COMMAND QUALIFIERS | 
| 


SPIER PSY FELD FUE TEA, APT SRE SE SPOS TRAC ERACE AL. EDM, SEP SL HNONG PRFUR ISON IS ONE TR MSRC$: CHMONSTR.BLI/UPDATE=(ENHS: CHMO 


; Size: 185 code + 768 data bytes 


; Lexenes/CPU-Min: 14880 
: poneey © Used: 170 pages 
; Compilation Complete 
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DIGITAL EQUIPMENT CORPORATION: 
CONFID 


ENTIAL -AND PROPRIETARY 


